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— File: menus. mesa Edited by: Oohnsson, September 27, 1977 11:33 AM 

DIRECTORY 

InlineDefs: FROM "in! inedef s'\ 
WindowDefs: FROM "windowdefs", 
StringDefs: FROM "stringdefs" , 
StreamDefs: FROM "streamdefs", 
SystemDefs: FROM "systemdef s'\ 
MenuDefs: FROM "menudefs" , 
RectangleDefs: FROM "rectangledef s" ; 

DEFINITIONS FROM WindowDefs, MenuDefs, RectangleDefs, 
StreamDefs; 

Menus: PROGRAM 

IMPORTS RectangleDefs, StreamDefs, StringDefs, SystemDefs, WindowDefs 
EXPORTS MenuDefs, RectangleDefs, WindowDefs SHARES MenuDefs, RectangleDefs = 
BEGIN 

— GLOBAL Data 

defaultpfont: FAptr *- NIL; 

default! ineheight: INTEGER; 

nullindex: Streamlndex = Streamlndex[0 , -1] ; 

originindex: Streamlndex = Streamlndex[0,0] ; 

bbTable: ARRAY[0 . .SIZE[BBTabl e] + 1] OF WORD; 

bbptr: BBptr +• LOOPHOLE[@bbTable]; 

CR: CHARACTER = 15C; 

-- Mesa Display Menu Routines 

CreateMenu: PUBLIC PROCEDURE [array: MenuArray] 
RETURNS[MenuHandle] = 
BEGIN 

-- declare locals 
i, j: CARDINAL; 
menu: MenuHr.ndle; 
width, widest: xCoord; 
-- compute width of widest command word 

[defaultpfont, default! ineheight] <- GetDef aul tFon t[] ; 
wides t <- ; 

FOR i IN [0. .LENGTH[array]) DO 
width «- 0; 
FOR j IN [0. . array[i ]. keyword . length) DO 

width <- width + ComputeCharWidth[array[ i ] . keyword[ j] , defaultpfont]; 
ENDLOOP; 
IF width > widest THEN widest «- width; 
ENDLOOP; 
-- now create menu object and init it 
widest «- widest + menulef tmarg in*2 ; 

menu <- Sys temDef s . Al locateHeapNode[SIZE[MenuObject]] ; 
menu? «- MenuOb ject[NIL, -1, widest, NIL, NIL, NIL, array]; 
RETURN[menu]; 
END; 

DestroyMenu: PUBLIC PROCEDURE [menu: MenuHandle] = 
BEGIN 

-- NOTE: need to unlink from menu list later 

Sys temDef s . Free!leapNode[menu] ; 
END; 

DisplayMenu: PUBLIC PROCEDURE 

[menu: MenuHandle, mapdata: BMHandle, x: xCoord, y: yCoord]= 

BTGIN 

-- declare- locals 

i: CARDINAL; 

ex: INTTGCR ♦• MAX[0, x- (menu . wi d th + 2 ) ] ; 

cy: INirGER; 

length: CARDTNAl = I rNGTH[menu . array] ; 

clearwords: GrayArray «- [0, 0, 0, 0]; 

clear: GrayPtr = @clearwords; 

[defaultpfont, defaultl inehe ight] <- GetDef aultTon t[] ; 
-- save data first then clear it 

IT menu .index = -1 THEN 

cy*- y-( defaultl in eh eight/2) 

FISC 
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cy ♦* y-(menu. index*def aultl ineheight+(defaultl ineheight/2) ) ; 
cy <- MAX[0, cy]; 

menu. rectangle ♦• CreateRectangle[mapdata, ex, menu. width, cy, def aultl ineheight*length+2] ; 
menu . rectangle, options .NoteOverf low *- TRUE; 
--test page size of menu before saving 
IF (((menu. rectangle. cw + 15) /16 +1) * 
menu . rectangle. ch ) / 256 < s 4 
THEN menu.dataseg ♦■ LOOPHOLE[SaveRectangle[menu. rectangle]] ; 
menu . index «• -1 ; 

ClearBoxInRectangle[menu. rectangle, 0, menu . rectangle. cw, 0, menu . rectangle. ch , clear]; 
-- now paint it up on screen 

DrawBoxInRectangle[menu. rectangle, 0, menu . rectangle. cw, 0, menu . rectangle. ch] ; 
FOR i IN [0. .length) DO 

[cx.cy] <~ WriteRectangleString[menu. rectangle, menuleftmargin, ( i*def aul tl ineheight + 1), menu. 
**array[i] .keyword , defaultpfont 
! 

RectangleError »> 
SELECT error FROM 

RightOverflow => CONTINUE; 
NotVisible , 
BottomOverflow => EXIT; 
ENDCASE 

]; 

ENDLOOP; 
END; 

ClearMenu: PUBLIC PROCEDURE [menu: MenuHandle] = 
BEGIN 
-- define locals 

clearwords: GrayArray «- [0, 0, 0, 0]; 
clear: GrayPtr = Qclearwords; 
-- clear it now, repaint it later 
IF menu. rectangle # NIL THEN 
BEGIN 

ClearBoxInRectangle[menu. rectangle, 0, menu . rectangle . cw, 0, menu . rectangle . ch , clear]; 
IF menu.dataseg # NIL 
THEM BEGIN 

Res toreRec tang le[menu. rectangle, LOOPHOLE[menu. dataseg]]; 
menu.dataseg <- NIL; 
END; 
DestroyRectangle[menu. rectangle]; 
menu . rectangle ♦• NIL; 
END; 
END; 

MarkMenuItem: PUBLIC PROCEDURE 

[menu: MenuHandle, index: INTEGER] = 
BEGIN 

-- define locals 
i: INTEGER «- 1; 
r: Rptr = menu . rectangle ; 

[defaultpfont, def aultl ineheight] ♦• GetDef aul tFont[] ; 
-- if same as before then ignore 

IF menu. index = index THEN RETURN; 
-- fix for bottom of menu 

IF menu, index = LENGTH[menu . array]-l THEN i «- 0; 
IF menu. index # -1 THEN -- turn old guy off 

InvertBoxInRectangle[r , 1, r.cw-2, menu . index*defauKl ineheight + 1 , def aultl ineheight-i] ; 
IF index = LFNGTH[menu.array]-l THEN i ♦- 

ELSE i 4- l; 
IF index # -1 THEN -- turn new guy on 

InvertBoxInRectangle[r, 1, r.cw-2, index*deFaultl ineheight+1 , def aul tl ineheight-i] ; 
menu . index ♦- index; 
END; 

SaveRectanglerPUBLIC PROCEDURF[rectangle: Rptr] RCTURNS[POINTER]= 
BEGIN 

--declare locals 
SegPtr: POINTER; 

wordsperl ine: CARDINAL = rectangle .bi tmap .wordsperl ine; 
mapaddr: BMptr = rectangle . b i tmap . addr ; 
dw: CARDTNAl ♦■ rec tangl e . cw ; 
dh: CARDINAI <- rec tangl e .ch ; 
dwWords: CARDINAI «- (dw + 1 5 ) / 16 + 1; 
totalWords: CARDTNAl ♦- dwWords * dh; 
SegPtr «- SystemDefs . Al locateSegmen t[ totalWords] ; 
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bbptr ♦■ EVEN[bbptr]; 

bbptrt ♦- BBTable[Q, block, repl ace, , SegPtr, dwWords , 

0, 0, dw ,dh, map ad dr, wordsperl ine, rec tangle. xO, 

rectangle. yO, 0,0, 0,0]; 
BitBlt[bbptr]; 
RETURN[SegPtr]; 
END; 

RestoreRectangle:PUBLIC PROCEDURE[rectangle: Rptr, SegPtr: POINTER]= 
BEGIN 

--declare locals 

wordsperl ine: INTEGER = rectangle . bitmap .wordsperl ine; 

mapaddr: BMptr = rectangle . bitmap . addr; 

dw: CAROINAL «• rectangl e .cw; 

dh: CARDINAL ♦• rectangle .ch ; 

dwWords: CARDINAL «• (dw + 15)/16 + 1; 

bbptr ♦- EVEN[bbptr]; 

bbptrt 4- BBTable[Q .block, replace, .mapaddr .wordsperl ine, 
rectangle. xO , rectangl e.yO .dw.dh, SegPtr , 
dwWords, 0,0,0, 0,0,0]; 

BitBl t[bbptr]; 

SystemDefs . FreeSegment[SegPtr] ; 

RETURN; 

END; 

EVEN: PROCEDURE[v: UNSPECIFIED] RETURNS[UNSPECIFIED]= 
BEGIN 

RETURN[v+ InlineDefs.BITAND[v,l]]; 
END; 

— Selection routines 

ResolveBugToPosition: PUBLIC PROCEDURE [w: WindowHandl e , x: xCoord, y: yCoord] 
RETURNS[INTEGER, xCoord, INTEGER, Streamlndex]* 
BEGIN 

-- Declare Locals 
char: CHARACTER; 
xpos: xCoord «- leftmargin; 
width: CARDINAL <- 0; 
nlines, line: CARDINAL; 
index, saved index: Stream Index; 
-- NOTE: following array is ONE origin 
linestarts: DESCRIPTOR FOR ARRAY OF Streamlndex; 
nlines «- (w. rectangle, ch/w. ds . 1 ineheight)-l ; 
linestarts *- DESCRIPTOR[GetLineTable[] , nlines +1]; 
IF Equallndex[l inestarts[0] .nullindex] THEN -- empty window 

RETURN[1, leftmargin, 0, or igi nindex] ; 
savedindex «- Getlndex[w. f ile] ; 
[x, y] «- CursorToRecCoords[w. rectangle , x, y]; 
-- NOTE: real line number = line + 1 
line «- MIN[MAX[1, y/w. ds . 1 i nehe i gh t] , nlines] - 1; 
-- back up until real text in window 
UNTIL NOT Equallndex[l inestarts[l ine], null index] DO 

1 ine «- 1 ine-1 ; 

ENDLOOP; 
index «- 1 ines tarts[l ine] ; 
Setlndex[w. f i le , index]; 
WHILE x > xpos DO 

index <- Getlndex[w. f i le] ; 

char «- w. file. get[w. file 
! StreamError => EXIT]; 

width ♦• IT char = 1 IC THEN Compu teTabW i dth[w . ds . p font , xpos] 
ELSE ComputeCharWidth[char , w.ds.pfont]; 

xpos «- xpos + width; 

IT rquallndex[ index , w.eofindex] OR char = CR OR 
rqualIndex[GetIndex[w. file], linestarts[l ine +1]] 
THEN rXIT; 

TNDIOOP; 
Se t Index [w. fi le , saved index] ; 
RETURN[1 ine+1 , xpos-width, width, index]; 
END; 

ComputeTabWidlh: PROCTDURr [font: TAptr, x: xCoord] 
RETURNS [CARDINAL] = 
BEGIN 
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tw: CARDINAL ■ ComputeCharWidth[ ' ,font] * 8; 

RETURN[tw - x MOD tw] 

END; 

GetSelection: PUBLIC PROCEDURE [w: WindowHandle] 
RETURNS[STRING]= 
BEGIN 
— Declare Locals 

count: CARDINAL: 

savedindex: Streamlndex; 

str: STRING; 
-- put the selection into a string 

IF Equal Index[w. selection . rightindex, nullindex] 
THEN RETURN[str <- NIL]; 

savedindex ♦* Getlndex[w.f ile] ; 

count «• (w. selection. rightindex. page-w. selection. leftindex .page)*512 + 

(w. selection. r i gh t index. by te+l)-w. selection. leftindex. byte; 

str ♦• SystemDef s. AllocateHeapString[count] ; 

Se tin dex[w. file, w. selection . leftindex] ; 

THROUGH [0. .count) DO 

StringDef s.AppendChar[str, w. file. get[w. file]]; 
ENDLOOP; 

Setlndex[w.f ile , savedindex]; 

RETURN[str]; 
END; 

MakeSelection: PUBLIC PROCEDURE 

[w: WindowHandle, sel: POINTER TO Selection] = 

BEGIN 

-- unmark the old one if one exists and is visible 

IF NOT ( Equal Index[w. selection. leftindex, nul 1 index] 
OR w. selection. leftl ine = 0) THEN MarkSelection[w] ; 
-- mark the new one 

w. selection *- sel t ; 

MarkSelection[w] ; 
END; 

MarkSelection: PUBLIC PROCEDURE 
[w: WindowHandle] = 
BEGIN 
-- Declare Locals 

i: CARDINAL; 
-- check for visibility 

IF Equal Index[w. selection. leftindex, null index] 

OR w. selection. leftline * THEN RETURN; 
-- mark the new one 

IF w. selection . leftl ine = w. selection . rightl ine THEN 

InvertBox I nRect an gle[w. rectangle, w.selection.leftx, w. select i on. rightx-w. selection. leftx, 
w. selection. leftl ine *w.ds.1ineheight, 
w. ds . 1 ineheight] 
ELSE 
BEGIN 

InvertBox I nRec tang le[w. rectangle, w. selection. leftx, (w. rectangle .cw-1 )-w.selection, leftx, 
w. selection. leftline*w.ds.lineheight, 
w. ds . 1 ineheight] ; 

i *• w. select ion . rightl ine-w. select ion . leftl ine; 
IF i > 1 THEN 

Inver tBoxInRectangle[w . rectangle , leftmargin, w. rectangle . cw-( 1 eftmargin+t ) , (w. selection . 1 
**eftline+l)*w.ds.lineheight, 

(i-l)*w.ds.l ineheight]; 
Inver tBoxTnRectangle[w. rectangle, 1 ef tmargi n, w.selection.rightx- 1 e f tmarg in, w.selection.righ 
**tl i n e * w . d s . 1 ineheight, 

w.ds.lineheight]; 
END 
FND; 

UpdateSelection: PUBLIC PROCTDURF[w: WindowHandle] = 
BEGIN 

--local data 
which: BOOI TAN - TRUF; 
last index: Streamlndex <- nullindex; 
savedindex: Streamlndex; 
line: CARDINAL; 

nlines: CARDTNAI ♦- (w. rectangle . ch/w. ds . 1 inehe ight) - 1; 
i: CARDINAL ♦- 0; 
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linestarts : DESCRIPTOR FOR ARRAY OF Streamlndex; 
linestarts +* DESCRIPTOR[GetLineTable[] , nlines +1]; 
--figure out the real last line 
FOR line IN [1. .nlines) DO 

IF Equallndex[null index, 1 inestarts[l ine]] THEN 
BEGIN 

lastindex *- w.eofindex; 
nl ines ♦■ 1 ine-1; 
EXIT; 
END; 
ENDLOOP; 
IF Equal Index[lastindex, nullindex] THEN 

lastindex <- 1 inestarts[nl ines]; 
-- for no selection or out of bounds 
IF Equal Index[w. selection. leftindex , nullindex] OR 
GrEqualIndex[w. selection. leftindex , lastindex] OR 
Grlndex[l inestarts[0] . w. selection . rightindex] THEN 
BEGIN 

w. selection, leftl ine ♦• 0; 
RETURN; 
END; 
savedindex +• Getlndex[w. f ile] ; 
-- find line numbers 

IF GrEqual Index[w. selection . lef tindex, 1 inestarts[0]] THEN 
FOR i ♦■ 0, i + 1 UNTIL i = nlines DO 

IF (GrEqualIndex[w. selection. leftindex, 1 inestarts[i]] 
AND Grlndex[l inestar ts[ i+1] , w. selection . lef tindex]) 
THEN EXIT; ENDLOOP; 
w. selection, leftline «- MAX[1, i+1]; 
IF Grlndex[lastindex, w. selection . rightindex] THEN 
FOR 1 ♦■ 1 , i + 1 UNTIL i = nlines DO 

IF (GrEqualIndex[w. selection. rightindex, 1 inestarts[i ]] 
AND Grlndex[l inestarts[ i+1] , w. selection. rightindex]) 
THEN EXIT; ENDLOOP; 
w. selection, right! ine «- MIN[nl ines+1, i+1]; 
--find xcoords 

IF GrEqualIndex[w. selection, leftindex, 1 inestartsCO]" 1 THEN 
w. selection, lef tx «- 

GetPos[w, linestarts[w. selection. left! ine-1], 
w. selection . leftindex, which] 
ELSE w. selection. lef tx ♦■ leftmargin; 
which <- FALSE; 

IF Grlndex[l astindex, w. selection. rightindex] THEN 
w. select ion . rightx <~ 

GetPos[w, linestarts[w. selection. right! ine-1], 
w. selection . rightindex , which] 
ELSE w. selection, rightx «- w. rectangle, cw; 
Setlndex[w.f i le, savedindex]; 
MarkSelection[w]; 
END; 

GetPos: PROCEDURE[w: Wi ndowHand! e , indexl: Streamlndex, 
index2: Streamlndex, left: BOOLEAN] RETURNS[xCoord]= 
BEGIN 

char: CHARACTER; 
xpos: xCoord *- leftmargin; 
width: CARDINAL; 

IF Equallndex[indexl, index2] AND left THEN RETURN[xpos]; 
Setlndex[w. file, indexl]; 
DO indexl <- Getlndex[w. f i le] ; 

char ♦- w.file.get[w.file]; 

width +• IF char = 11C THEN ComputeTabWidth[w. ds . pf on t ,xpos] 
ELSE ComputeCharWidth[char , w.ds.pfont]; 

xpos ♦- xpos + width; 

IF Equallndex[indexl , index2] THEN EXIT; 

TNDLOOP; 
IF left THEN xpos «- xpos - width; 
RrTURN[xpos]; 
END; 

END. of Menus 



